home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.07 Jul 90 / Commando Programming ƒ / Rezscripts / RezC.MBAR < prev    next >
Encoding:
Text File  |  1989-08-09  |  719 b   |  33 lines  |  [TEXT/MPS ]
  1. ###    File RezC.MBAR
  2. ### Generates Rez input for Menu Bar resource
  3. ### W. Powell  1988
  4.  
  5. Set Exit 0
  6. Set rid {1}
  7. Echo -n "Resource ∂'MBAR∂' ({rid}"
  8. Shift 1
  9. If "{1}" == "-nms"
  10.     Echo -n ",∂"{2}∂""
  11.     Shift 2
  12. End
  13. Set List ""
  14. # List of Menu ID's
  15. Loop # for every ID
  16.     Break If "{1}" == "-END"
  17.     Set List "{List} {1}"
  18.     Shift 1
  19. End
  20. Shift 1
  21. # Resource attributes
  22. If ( "{1}" == "-sy" ) ; Echo -n ",SysHeap" ; Shift ; End
  23. If ( "{1}" == "-pu" ) ; Echo -n ",Purgeable" ; Shift ; End
  24. If ( "{1}" == "-lo" ) ; Echo -n ",Locked" ; Shift ; End
  25. If ( "{1}" == "-Pr" ) ; Echo -n ",Protected" ; Shift ; End
  26. If ( "{1}" == "-PL" ) ; Echo -n ",PreLoad" ; Shift ; End
  27. Echo ") ∂{ ∂{"
  28.  
  29. For MenuID In {List}
  30.     Echo "∂t{MenuID},"
  31. End
  32. Echo "∂t∂} ∂};"
  33. Exit 0